﻿Imports Microsoft.Win32

Module globalFunctions

    Public Function initStartup()
        Dim reg As RegistryKey

        reg = Registry.LocalMachine.OpenSubKey("Software\IdiotBox", False)

        dbase_host = reg.GetValue("dbHost", "")
        dbase_uname = reg.GetValue("dbUser", "")
        dbase_host = reg.GetValue("dbPass", "")
        dbase_db = reg.GetValue("dbDb", "")



    End Function

End Module
